home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 26.zip / BS1 part 26 / Aztec C v5.2a disk 2.adf / reslib52.lzh / mylib.asm < prev    next >
Assembly Source File  |  1990-12-03  |  722b  |  61 lines
  1. ;:ts=8
  2. ;#include "mylib.h"
  3. ;
  4. ;void
  5. ;Func1(long value)
  6. ;{
  7.     xdef    _Func1
  8. _Func1:
  9.     link    a5,#.2
  10.     movem.l    .3,-(sp)
  11.     move.l    d0,-4(a5)
  12.     move.l    a4,-(sp)
  13.     far    code
  14.     public    _geta4
  15.     jsr    _geta4
  16.     near    code
  17. ;    struct mylibBase *mylibBase;
  18. ;
  19. ;    mylibBase->ml_value = value;
  20.     move.l    -4(a5),38(a6)
  21. ;}
  22. .4
  23.     move.l    (sp)+,a4
  24.     movem.l    (sp)+,.3
  25.     unlk    a5
  26.     rts
  27. .2    equ    -4
  28. .3    reg    
  29. ;
  30. ;long
  31. ;Func2(long value)
  32. ;{
  33.     xdef    _Func2
  34. _Func2:
  35.     link    a5,#.5
  36.     movem.l    .6,-(sp)
  37.     move.l    d0,-4(a5)
  38.     move.l    a4,-(sp)
  39.     far    code
  40.     public    _geta4
  41.     jsr    _geta4
  42.     near    code
  43. ;    struct mylibBase *mylibBase;
  44. ;
  45. ;    return(mylibBase->ml_value+value);
  46.     move.l    38(a6),d0
  47.     add.l    -4(a5),d0
  48. .7
  49.     move.l    (sp)+,a4
  50.     movem.l    (sp)+,.6
  51.     unlk    a5
  52.     rts
  53. ;}
  54. .5    equ    -4
  55. .6    reg    
  56. ;
  57. ;
  58.     xref    .begin
  59.     dseg
  60.     end
  61.